library(tidyverse)  # dplyr, part of tidyverse,  has spread() & gather() 
library(plotly)

Data from fiveThirtyEight.com

trump <- read_csv("https://projects.fivethirtyeight.com/trump-approval-data/approval_topline.csv", 
                  col_types = cols(modeldate = col_date(format = "%m/%d/%Y"), 
                                   timestamp = col_datetime(format = "%H:%M:%S %d %b %Y ")))
trump

Munge data

trump_over_under <- trump %>% 
  filter(subgroup == "All polls") %>% 
  select(modeldate, approve_estimate, disapprove_estimate) %>%
  gather("pol_type", "score", -modeldate)
trump_over_under

ggplot

ts_4_ggpltly <- ggplot(trump_over_under, aes(x = modeldate, y = score, color = pol_type)) +
  geom_line() +
  scale_color_manual(values = c("forestgreen", "firebrick"),
                     labels = c("Approve", "Disapprove")) +
  labs(x = "Date", y = "Approval Rating",
       color = "",
       caption = "Data Source:  fivethirtyeight.com")
ts_4_ggpltly

ggplotly(ts_4_ggpltly)
# Example from tk_ts documentation
data_tbl <- tibble::tibble(
    date = seq.Date(as.Date("2016-01-01"), by = 1, length.out = 5),
    x    = rep("chr values", 5),
    y    = cumsum(1:5),
    z    = cumsum(11:15) * rnorm(1))

data_tbl

tk_ts(data_tbl, start = 2016)
# Working but the x axis is bonk
ap_4_dy <- allpolls %>% 
  select(modeldate, approve_estimate, disapprove_estimate) %>% 
  tk_ts(start = 20170201) 

ap_4_dy <- allpolls %>% 
  select(modeldate, approve_estimate, disapprove_estimate) %>% 
  #tk_ts()
  tk_ts(start = 2017, freq = 365) 

ap_4_dy

#idx <- tk_index(allpolls)
This is what was working, even with the bonk x axis
ap_4_dy %>% 
  dygraph() %>% 
  dyRangeSelector(dateWindow = c("2017-02-01", "2018-11-30"))
# from dygraph documentation
class(mdeaths)
head(mdeaths)
lungDeaths <- cbind(mdeaths, fdeaths)
dygraph(lungDeaths)
sessioninfo::session_info()
- Session info -------------------------------------------------------

- Packages -----------------------------------------------------------
 package     * version date       lib source        
 assertthat    0.2.0   2017-04-11 [2] CRAN (R 3.5.1)
 backports     1.1.3   2018-12-14 [2] CRAN (R 3.5.2)
 bindr         0.1.1   2018-03-13 [2] CRAN (R 3.5.1)
 bindrcpp    * 0.2.2   2018-03-29 [2] CRAN (R 3.5.1)
 broom         0.5.1   2018-12-05 [2] CRAN (R 3.5.2)
 cellranger    1.1.0   2016-07-27 [2] CRAN (R 3.5.1)
 cli           1.0.1   2018-09-25 [2] CRAN (R 3.5.1)
 colorspace    1.4-0   2019-01-13 [1] CRAN (R 3.5.2)
 crayon        1.3.4   2017-09-16 [2] CRAN (R 3.5.1)
 crosstalk     1.0.0   2016-12-21 [2] CRAN (R 3.5.1)
 curl          3.2     2018-03-28 [2] CRAN (R 3.5.1)
 data.table    1.11.8  2018-09-30 [2] CRAN (R 3.5.1)
 digest        0.6.18  2018-10-10 [2] CRAN (R 3.5.1)
 dplyr       * 0.7.8   2018-11-10 [2] CRAN (R 3.5.2)
 forcats     * 0.3.0   2018-02-19 [2] CRAN (R 3.5.1)
 generics      0.0.2   2018-11-29 [2] CRAN (R 3.5.2)
 ggplot2     * 3.1.0   2018-10-25 [1] CRAN (R 3.5.2)
 glue          1.3.0   2018-07-17 [2] CRAN (R 3.5.1)
 gtable        0.2.0   2016-02-26 [2] CRAN (R 3.5.1)
 haven         2.0.0   2018-11-22 [2] CRAN (R 3.5.2)
 hms           0.4.2   2018-03-10 [2] CRAN (R 3.5.1)
 htmltools     0.3.6   2017-04-28 [2] CRAN (R 3.5.1)
 htmlwidgets   1.3     2018-09-30 [2] CRAN (R 3.5.1)
 httpuv        1.4.5.1 2018-12-18 [1] CRAN (R 3.5.2)
 httr          1.4.0   2018-12-11 [2] CRAN (R 3.5.2)
 jsonlite      1.6     2018-12-07 [2] CRAN (R 3.5.2)
 knitr         1.21    2018-12-10 [1] CRAN (R 3.5.2)
 labeling      0.3     2014-08-23 [2] CRAN (R 3.5.0)
 later         0.8.0   2019-02-11 [1] CRAN (R 3.5.2)
 lattice       0.20-38 2018-11-04 [2] CRAN (R 3.5.2)
 lazyeval      0.2.1   2017-10-29 [2] CRAN (R 3.5.1)
 lubridate     1.7.4   2018-04-11 [2] CRAN (R 3.5.1)
 magrittr      1.5     2014-11-22 [2] CRAN (R 3.5.1)
 mime          0.6     2018-10-05 [1] CRAN (R 3.5.1)
 modelr        0.1.2   2018-05-11 [2] CRAN (R 3.5.1)
 munsell       0.5.0   2018-06-12 [2] CRAN (R 3.5.1)
 nlme          3.1-137 2018-04-07 [2] CRAN (R 3.5.2)
 pillar        1.3.1   2018-12-15 [2] CRAN (R 3.5.2)
 pkgconfig     2.0.2   2018-08-16 [2] CRAN (R 3.5.1)
 plotly      * 4.8.0   2018-07-20 [1] CRAN (R 3.5.1)
 plyr          1.8.4   2016-06-08 [2] CRAN (R 3.5.1)
 promises      1.0.1   2018-04-13 [1] CRAN (R 3.5.1)
 purrr       * 0.2.5   2018-05-29 [2] CRAN (R 3.5.1)
 R6            2.4.0   2019-02-14 [2] CRAN (R 3.5.2)
 Rcpp          1.0.0   2018-11-07 [2] CRAN (R 3.5.2)
 readr       * 1.3.1   2018-12-21 [1] CRAN (R 3.5.2)
 readxl        1.2.0   2018-12-19 [2] CRAN (R 3.5.2)
 rlang         0.3.1   2019-01-08 [2] CRAN (R 3.5.2)
 rstudioapi    0.9.0   2019-01-09 [2] CRAN (R 3.5.1)
 rvest         0.3.2   2016-06-17 [2] CRAN (R 3.5.1)
 scales        1.0.0   2018-08-09 [2] CRAN (R 3.5.1)
 sessioninfo   1.1.1   2018-11-05 [2] CRAN (R 3.5.2)
 shiny         1.2.0   2018-11-02 [2] CRAN (R 3.5.2)
 stringi       1.3.1   2019-02-13 [2] CRAN (R 3.5.2)
 stringr     * 1.4.0   2019-02-10 [2] CRAN (R 3.5.2)
 tibble      * 2.0.1   2019-01-12 [2] CRAN (R 3.5.2)
 tidyr       * 0.8.2   2018-10-28 [2] CRAN (R 3.5.2)
 tidyselect    0.2.5   2018-10-11 [2] CRAN (R 3.5.1)
 tidyverse   * 1.2.1   2017-11-14 [2] CRAN (R 3.5.1)
 viridisLite   0.3.0   2018-02-01 [2] CRAN (R 3.5.1)
 withr         2.1.2   2018-03-15 [2] CRAN (R 3.5.1)
 xfun          0.4     2018-10-23 [2] CRAN (R 3.5.2)
 xml2          1.2.0   2018-01-24 [1] CRAN (R 3.5.1)
 xtable        1.8-3   2018-08-29 [2] CRAN (R 3.5.1)
 yaml          2.2.0   2018-07-25 [2] CRAN (R 3.5.1)

[1] C:/Users/jrl/Documents/R/win-library/3.5
[2] C:/Users/jrl/Documents/R/R-3.5.2/library
LS0tDQp0aXRsZTogInRydW1wIGFwcHJvdmFsIHJhdGluZyAtLSB0aW1lIHNlcmllcyINCmF1dGhvcjogIkpvaG4gTGl0dGxlIg0KZGF0ZTogImByIFN5cy5EYXRlKClgIg0KYWJzdHJhY3Q6ICJQdXQgb3V0IGEgdGltZXNlcmllcyBncmFwaCB2aWEgZ2dwbG90MnBsb3RseSINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQoNCmBgYHtyfQ0KbGlicmFyeSh0aWR5dmVyc2UpICAjIGRwbHlyLCBwYXJ0IG9mIHRpZHl2ZXJzZSwgIGhhcyBzcHJlYWQoKSAmIGdhdGhlcigpIA0KbGlicmFyeShwbG90bHkpDQpgYGANCg0KDQojIyBEYXRhIGZyb20gZml2ZVRoaXJ0eUVpZ2h0LmNvbQ0KDQotIFthcHByb3ZhbCByYXRpbmdzXShodHRwczovL2dpdGh1Yi5jb20vZml2ZXRoaXJ0eWVpZ2h0L2RhdGEvdHJlZS9tYXN0ZXIvdHJ1bXAtYXBwcm92YWwtcmF0aW5ncykNCi0gWyoqdG9wbGluZSoqXShodHRwczovL3Byb2plY3RzLmZpdmV0aGlydHllaWdodC5jb20vdHJ1bXAtYXBwcm92YWwtZGF0YS9hcHByb3ZhbF90b3BsaW5lLmNzdikNCg0KDQpgYGB7cn0NCnRydW1wIDwtIHJlYWRfY3N2KCJodHRwczovL3Byb2plY3RzLmZpdmV0aGlydHllaWdodC5jb20vdHJ1bXAtYXBwcm92YWwtZGF0YS9hcHByb3ZhbF90b3BsaW5lLmNzdiIsIA0KICAgICAgICAgICAgICAgICAgY29sX3R5cGVzID0gY29scyhtb2RlbGRhdGUgPSBjb2xfZGF0ZShmb3JtYXQgPSAiJW0vJWQvJVkiKSwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHRpbWVzdGFtcCA9IGNvbF9kYXRldGltZShmb3JtYXQgPSAiJUg6JU06JVMgJWQgJWIgJVkgIikpKQ0KdHJ1bXANCmBgYA0KDQojIyBNdW5nZSBkYXRhDQoNCmBgYHtyfQ0KdHJ1bXBfb3Zlcl91bmRlciA8LSB0cnVtcCAlPiUgDQogIGZpbHRlcihzdWJncm91cCA9PSAiQWxsIHBvbGxzIikgJT4lIA0KICBzZWxlY3QobW9kZWxkYXRlLCBhcHByb3ZlX2VzdGltYXRlLCBkaXNhcHByb3ZlX2VzdGltYXRlKSAlPiUNCiAgZ2F0aGVyKCJwb2xfdHlwZSIsICJzY29yZSIsIC1tb2RlbGRhdGUpDQoNCnRydW1wX292ZXJfdW5kZXINCmBgYA0KDQoNCg0KIyMgZ2dwbG90IA0KDQpgYGB7cn0NCnRzXzRfZ2dwbHRseSA8LSBnZ3Bsb3QodHJ1bXBfb3Zlcl91bmRlciwgYWVzKHggPSBtb2RlbGRhdGUsIHkgPSBzY29yZSwgY29sb3IgPSBwb2xfdHlwZSkpICsNCiAgZ2VvbV9saW5lKCkgKw0KICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzID0gYygiZm9yZXN0Z3JlZW4iLCAiZmlyZWJyaWNrIiksDQogICAgICAgICAgICAgICAgICAgICBsYWJlbHMgPSBjKCJBcHByb3ZlIiwgIkRpc2FwcHJvdmUiKSkgKw0KICBsYWJzKHggPSAiRGF0ZSIsIHkgPSAiQXBwcm92YWwgUmF0aW5nIiwNCiAgICAgICBjb2xvciA9ICIiLA0KICAgICAgIGNhcHRpb24gPSAiRGF0YSBTb3VyY2U6ICBmaXZldGhpcnR5ZWlnaHQuY29tIikNCg0KdHNfNF9nZ3BsdGx5DQpgYGANCg0KYGBge3J9DQpnZ3Bsb3RseSh0c180X2dncGx0bHkpDQpgYGANCg0KDQoNCmBgYCByDQojIEV4YW1wbGUgZnJvbSB0a190cyBkb2N1bWVudGF0aW9uDQpkYXRhX3RibCA8LSB0aWJibGU6OnRpYmJsZSgNCiAgICBkYXRlID0gc2VxLkRhdGUoYXMuRGF0ZSgiMjAxNi0wMS0wMSIpLCBieSA9IDEsIGxlbmd0aC5vdXQgPSA1KSwNCiAgICB4ICAgID0gcmVwKCJjaHIgdmFsdWVzIiwgNSksDQogICAgeSAgICA9IGN1bXN1bSgxOjUpLA0KICAgIHogICAgPSBjdW1zdW0oMTE6MTUpICogcm5vcm0oMSkpDQoNCmRhdGFfdGJsDQoNCnRrX3RzKGRhdGFfdGJsLCBzdGFydCA9IDIwMTYpDQpgYGANCg0KDQoNCmBgYCByDQojIFdvcmtpbmcgYnV0IHRoZSB4IGF4aXMgaXMgYm9uaw0KYXBfNF9keSA8LSBhbGxwb2xscyAlPiUgDQogIHNlbGVjdChtb2RlbGRhdGUsIGFwcHJvdmVfZXN0aW1hdGUsIGRpc2FwcHJvdmVfZXN0aW1hdGUpICU+JSANCiAgdGtfdHMoc3RhcnQgPSAyMDE3MDIwMSkgDQoNCmFwXzRfZHkgPC0gYWxscG9sbHMgJT4lIA0KICBzZWxlY3QobW9kZWxkYXRlLCBhcHByb3ZlX2VzdGltYXRlLCBkaXNhcHByb3ZlX2VzdGltYXRlKSAlPiUgDQogICN0a190cygpDQogIHRrX3RzKHN0YXJ0ID0gMjAxNywgZnJlcSA9IDM2NSkgDQoNCmFwXzRfZHkNCg0KI2lkeCA8LSB0a19pbmRleChhbGxwb2xscykNCmBgYA0KDQoNCmBgYCByIA0KVGhpcyBpcyB3aGF0IHdhcyB3b3JraW5nLCBldmVuIHdpdGggdGhlIGJvbmsgeCBheGlzDQphcF80X2R5ICU+JSANCiAgZHlncmFwaCgpICU+JSANCiAgZHlSYW5nZVNlbGVjdG9yKGRhdGVXaW5kb3cgPSBjKCIyMDE3LTAyLTAxIiwgIjIwMTgtMTEtMzAiKSkNCg0KYGBgDQoNCg0KDQpgYGAgcg0KIyBmcm9tIGR5Z3JhcGggZG9jdW1lbnRhdGlvbg0KY2xhc3MobWRlYXRocykNCmhlYWQobWRlYXRocykNCmx1bmdEZWF0aHMgPC0gY2JpbmQobWRlYXRocywgZmRlYXRocykNCmR5Z3JhcGgobHVuZ0RlYXRocykNCmBgYA0KDQoNCmBgYHtyfQ0Kc2Vzc2lvbmluZm86OnNlc3Npb25faW5mbygpDQpgYGANCg0KDQo=